home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / DOpusVersion.dopus5 < prev    next >
Text File  |  1998-09-25  |  527b  |  15 lines
  1. /* DOpus version test */
  2. options results
  3. address 'DOPUS.1'
  4. dopus version                             /* Ask for version information */
  5. text = "Your DOpus version is: "result    /* Format result into string */
  6. dopus request '"'text'" OK'               /* Output to a requester */
  7. dopus version
  8. newopus = result ~= 'RESULT' & translate(result,'.',' ') ~< 5.1215
  9. if newopus then
  10.   text = 'You can use the ''lister request'' command.'
  11. else
  12.   text = 'You can''t use the ''lister request'' command.'
  13. dopus request '"'text'" OK'
  14. exit
  15.